﻿Define CharList
(
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`', '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{', ']', '}', ';', ':', "'", '"', ',', '<', '.', '>', '/', '?', '¡', '¿', 'À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß', 'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', '米', '还', '有', '成', '功');

Define WidthList
(
22, 17, 16, 16, 14, 14, 17, 18, 10, 17, 18, 14, 24, 17, 18, 17, 18, 17, 16, 15, 20, 19, 25, 19, 18, 14, 18, 15, 13, 14, 12, 12, 14, 14, 7, 14, 15, 12, 21, 14, 15, 15, 15, 15, 14, 14, 17, 16, 21, 16, 16, 13, 18, 10, 16, 17, 16, 16, 17, 13, 19, 17, 11, 9, 9, 17, 25, 17, 17, 13, 18, 13, 10, 12, 11, 13, 11, 13, 12, 11, 13, 11, 8, 8, 8, 16, 9, 11, 8, 10, 13, 16, 9, 16, 22, 22, 22, 22, 22, 22, 25, 16, 14, 14, 14, 14, 10, 10, 10, 10, 16, 17, 18, 18, 18, 18, 18, 18, 20, 20, 20, 20, 18, 17, 18, 18, 18, 18, 18, 18, 21, 13, 12, 12, 12, 12, 7, 7, 7, 7, 15, 14, 15, 15, 15, 15, 15, 15, 17, 17, 17, 17, 16, 16, 37, 37, 37, 37, 37);

Define RectList
(
(0,0,26,42), (27,0,21,42), (49,0,20,42), (70,0,20,42), (91,0,18,42), (110,0,17,42), (128,0,20,42), (149,0,20,42), (170,0,12,42), (183,0,20,42), (204,0,22,42), (227,0,17,42), (245,0,28,42), (274,0,20,42), (295,0,21,42), (317,0,21,42), (339,0,21,42), (361,0,21,42), (383,0,20,42), (404,0,19,42), (424,0,22,42), (447,0,22,42), (470,0,28,42), (0,44,22,42), (23,44,22,42), (46,44,18,42), (65,44,23,42), (89,44,19,42), (109,44,18,42), (128,44,18,42), (147,44,16,42), (164,44,16,42), (181,44,18,42), (200,44,18,42), (219,44,10,42), (230,44,18,42), (249,44,19,42), (269,44,16,42), (286,44,25,42), (312,44,18,42), (331,44,19,42), (351,44,19,42), (371,44,19,42), (391,44,19,42), (411,44,18,42), (430,44,17,42), (448,44,21,42), (470,44,20,42), (0,88,25,42), (26,88,20,42), (47,88,20,42), (68,88,16,42), (85,88,21,42), (107,88,13,42), (121,88,20,42), (142,88,21,42), (164,88,20,42), (185,88,20,42), (206,88,21,42), (228,88,17,42), (246,88,23,42), (270,88,21,42), (292,88,19,42), (312,88,12,42), (325,88,12,42), (338,88,20,42), (359,88,28,42), (388,88,20,42), (409,88,20,42), (430,88,17,42), (448,88,21,42), (470,88,17,42), (488,88,15,42), (0,132,15,42), (16,132,15,42), (32,132,22,42), (55,132,15,42), (71,132,17,42), (89,132,16,42), (106,132,15,42), (122,132,16,42), (139,132,15,42), (155,132,12,42), (168,132,12,42), (181,132,12,42), (194,132,19,42), (214,132,12,42), (227,132,15,42), (243,132,12,42), (256,132,15,42), (272,132,18,42), (291,132,20,42), (312,132,14,42), (327,132,26,42), (354,132,26,42), (381,132,26,42), (408,132,26,42), (435,132,26,42), (462,132,26,42), (0,176,26,42), (27,176,28,42), (56,176,20,42), (77,176,18,42), (96,176,18,42), (115,176,18,42), (134,176,18,42), (153,176,12,42), (166,176,12,42), (179,176,12,42), (192,176,12,42), (205,176,20,42), (226,176,20,42), (247,176,21,42), (269,176,21,42), (291,176,21,42), (313,176,21,42), (335,176,21,42), (357,176,21,42), (379,176,22,42), (402,176,22,42), (425,176,22,42), (448,176,22,42), (471,176,22,42), (0,220,21,42), (22,220,23,42), (46,220,23,42), (70,220,23,42), (94,220,23,42), (118,220,23,42), (142,220,23,42), (166,220,25,42), (192,220,18,42), (211,220,16,42), (228,220,16,42), (245,220,16,42), (262,220,16,42), (279,220,10,42), (290,220,10,42), (301,220,10,42), (312,220,10,42), (323,220,19,42), (343,220,18,42), (362,220,19,42), (382,220,19,42), (402,220,19,42), (422,220,19,42), (442,220,19,42), (462,220,19,42), (482,220,21,42), (0,264,21,42), (22,264,21,42), (44,264,21,42), (66,264,20,42), (87,264,20,42), (0,306,40,42), (40,306,40,42), (80,306,40,42), (120,306,40,42), (160,306,40,42));

Define OffsetList
(
(-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-5,0), (-3,0), (-2,0), (-3,0), (-2,0), (-3,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-4,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-6,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-3,0), (-2,0), (-2,0), (-2,0), (-2,0), (-2,0));


Define KerningPairs
 ("\"A","'\"","''","'d","'l","'r","'s","'t","'v","34","67","78","7A","7a","89","A\"",
  "A'","AC","AG","AO","AQ","AT","AU","AV","AW","AY","Aa","Ac","Ad","Ae","Ao","Ap",
  "Aq","As","At","Au","Av","Aw","Ay","B,","B.","BA","C,","C.","CA","D,","D.","DA",
  "DV","DW","DY","F,","F.","FA","Fa","Fe","Fi","Fo","Fr","G,","G.","J,","J.","JA",
  "Ja","Je","Jo","Ju","KC","KO","Ko","Ku","Ky","L\"","L'","LT","LV","LW","LY","Ly",
  "N,","N.","NA","O,","O.","OA","OT","OV","OW","OX","OY","P,","P.","PA","Pa","Pe",
  "Po","Q,","Q.","QU","RO","RT","RU","RV","RW","Ry","S,","S.","SH","T,","T-","T.",
  "T:","T;","TA","TJ","TO","Ta","Te","Th","Ti","Tj","Tn","To","Tr","Tu","Tw","Ty",
  "U,","U.","UA","V,","V-","V.","V:","V;","VA","VG","VO","Va","Ve","Vi","Vo","Vu",
  "W,","W-","W.","W:","W;","WA","WO","Wa","We","Wh","Wi","Wo","Wu","Wy","Y,","Y-",
  "Y.","Y:","Y;","YA","YO","YS","Ya","Ye","Yi","Yo","Yu","aV","ag","ao","ap","at",
  "av","aw","ay","b,","b.","bb","bl","bu","bv","by","c,","c.","ch","ck","cl","cy",
  "dd","dv","dw","dy","e,","e.","eb","eg","ep","ev","ew","ex","ey","f\"","f'","f,",
  "f.","f1","fa","fe","ff","fi","fl","fo","g,","g.","ga","ge","gg","gi","go","gr",
  "gy","hy","iv","ke","ko","ky","l7","lt","lw","ly","mu","my","nu","nv","ny","o,",
  "o.","og","ov","ow","ox","oy","p,","p.","py","r,","r-","r.","r:","r;","ra","rc",
  "rd","re","rg","ri","rk","rl","rm","rn","ro","rp","rq","rr","rs","rt","ru","rv",
  "ry","s,","s.","sw","tj","v,","v.","vA","va","ve","vo","w,","w.","wa","we","wh",
  "wo","xe","y,","y.","ya","ye","yo","ze","zo");

Define KerningValues

 (  -7,  -2,  -2,  -2,  -2,  -2,  -3,  -2,  -3,  -2,  -2,  -2,  -4,  -5,  -2,  -3,

    -3,  -2,  -2,  -2,  -3,  -3,  -3,  -4,  -2,  -4,  -1,  -2,  -1,  -1,  -2,  -1,

    -2,  -1,  -3,  -3,  -3,  -2,  -4,  -3,  -3,  -3,  -2,  -2,  -2,  -3,  -3,  -3,

    -3,  -2,  -4,  -6,  -6,  -5,  -5,  -2,  -3,  -3,  -2,  -2,  -2,  -4,  -4,  -4,

    -4,  -1,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -6,  -6,  -4,  -5,  -2,  -6,  -5,

    -3,  -3,  -2,  -4,  -4,  -4,  -2,  -3,  -2,  -3,  -4,  -9,  -9,  -6,  -5,  -2,

    -3,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -1,  -2,  -2,  -2,  -1,  -4,  -3,  -4,

    -3,  -3,  -4,  -5,  -3,  -4,  -2,  -1,  -1,  -4,  -1,  -3,  -2,  -2,  -1,  -2,

    -4,  -3,  -4,  -6,  -4,  -5,  -4,  -4,  -5,  -3,  -3,  -5,  -2,  -3,  -4,  -3,

    -3,  -2,  -3,  -3,  -2,  -3,  -2,  -3,  -2,  -2,  -3,  -2,  -2,  -2,  -5,  -4,

    -5,  -4,  -3,  -5,  -3,  -2,  -5,  -2,  -3,  -4,  -3,  -3,  -2,  -2,  -1,  -3,

    -3,  -2,  -4,  -2,  -2,  -2,  -1,  -2,  -2,  -3,  -2,  -2,  -1,  -1,  -1,  -2,

    -2,  -3,  -2,  -4,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -1,  -1,  -5,

    -5,  -1,  -4,  -1,  -1,  -2,  -2,  -2,  -2,  -2,  -2,  -1,  -1,  -2,  -1,  -1,

    -2,  -2,  -1,  -1,  -2,  -2,  -1,  -3,  -2,  -5,  -2,  -2,  -2,  -1,  -1,  -3,

    -3,  -1,  -2,  -1,  -2,  -3,  -8,  -7,  -3,  -2,  -2,  -2,  -2,  -2,  -2,  -2,

    -2,  -1,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,  -2,

    -3,  -2,  -2,  -2,  -3,  -5,  -4,  -4,  -4,  -1,  -3,  -3,  -3,  -2,  -2,  -2,

    -2,  -1,  -4,  -4,  -4,  -1,  -3,  -2,  -2);

CreateLayer               Main;
LayerSetImage             Main 'wog36';
LayerSetAscent            Main 33;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (11);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 3;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 36;

SetDefaultPointSize  36;
